home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.03 Mar 89 / calc source / functions.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-12-09  |  892 b   |  53 lines  |  [TEXT/KAHL]
  1.  
  2. #include <WindowMgr.h>
  3. #include <ListMgr.h>
  4. #include <OSUtil.h>
  5. #include <EventMgr.h>
  6.  
  7. #include <Math.h>
  8.  
  9. #include "MacCalc.h"
  10. #include "CalcData.h"
  11. #include "Parser.h"
  12.  
  13. double fsum( arg )
  14. ARG_PTR arg ;
  15. {
  16.     double value = 0 ;
  17.     
  18.     value += arg->value ;
  19.     
  20.     while( arg->next_arg != NULL ) {
  21.         arg = arg->next_arg ;
  22.         value += arg->value ;
  23.     }
  24.     return value ;
  25. }
  26. double fabsolute( arg )
  27. ARG_PTR arg ;
  28. {
  29.     register double value ;
  30.     
  31.     value = arg->value ;
  32.     return( ( value >= 0 ) ? value:-value ) ;
  33. }
  34. double fmodulus( arg )
  35. ARG_PTR arg ;
  36. {
  37.     register double value1 ;
  38.     register double value2 ;
  39.     ARG_PTR curr_arg = arg ;
  40.     
  41.     value1 = arg->value ;
  42.     value2 = arg->next_arg->value ;
  43.     return( fmod( value1, value2 ) ) ;
  44. }
  45. double fsqrt( arg )
  46. ARG_PTR arg ;
  47. {
  48.     register double value ;
  49.     
  50.     value = arg->value ;
  51.     return( sqrt( value ) ) ;
  52. }
  53.